(occur-mode): Run occur-mode-hook.

diff --git a/lisp/replace.el b/lisp/replace.el
index 0b0e56df2fe2df214a780c9842ca1f3b8496205d..b8bf0648c24a71da1a0293e2be40978190ae7e72 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -227,7 +227,8 @@ in the buffer that the occurrences were found in.
   (setq mode-name "Occur")
   (make-local-variable 'occur-buffer)
   (make-local-variable 'occur-nlines)
-  (make-local-variable 'occur-pos-list))
+  (make-local-variable 'occur-pos-list)
+  (run-hooks 'occur-mode-hook))
 
 (defun occur-mode-goto-occurrence ()
   "Go to the line this occurrence was found in, in the buffer it was found in."